home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 4.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 38 3a 30 34 3a 34 32 20 | 31 39 39 37 0a 3b 3b 3b |8:04:42 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 73 6b |acs-20.3|/lisp/sk|
|00000080| 6b 2f 73 6b 6b 2d 76 69 | 70 65 72 2e 65 6c 0a 3b |k/skk-vi|per.el.;|
|00000090| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000a0| 20 32 30 2e 33 20 22 56 | 61 74 69 63 61 6e 20 43 | 20.3 "V|atican C|
|000000b0| 69 74 79 22 20 58 45 6d | 61 63 73 20 20 4c 75 63 |ity" XEm|acs Luc|
|000000c0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000d0| 20 76 65 72 73 69 6f 6e | 20 32 2e 32 35 20 58 45 | version| 2.25 XE|
|000000e0| 6d 61 63 73 3b 20 32 32 | 2d 4d 61 72 2d 39 36 2e |macs; 22|-Mar-96.|
|000000f0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|00000100| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000110| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000120| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000130| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000140| 31 39 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |19...(if| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000170| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000190| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|000001a0| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001b0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 32 30 22 |acs-vers|ion "20"|
|000001c0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))). |(error "|
|000001d0| 60 73 6b 6b 2d 76 69 70 | 65 72 2e 65 6c 27 20 77 |`skk-vip|er.el' w|
|000001e0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001f0| 45 6d 61 63 73 20 32 30 | 22 29 29 0a 0a 28 6f 72 |Emacs 20|"))..(or|
|00000200| 20 28 62 6f 75 6e 64 70 | 20 27 63 75 72 72 65 6e | (boundp| 'curren|
|00000210| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 29 20 28 73 65 |t-load-l|ist) (se|
|00000220| 74 71 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |tq curre|nt-load-|
|00000230| 6c 69 73 74 20 6e 69 6c | 29 29 0a 0a 28 72 65 71 |list nil|))..(req|
|00000240| 75 69 72 65 20 27 6d 75 | 6c 65 29 0a 3b 3b 3b 23 |uire 'mu|le).;;;#|
|00000250| 23 23 63 6f 64 69 6e 67 | 20 73 79 73 74 65 6d 3a |##coding| system:|
|00000260| 20 65 73 63 61 70 65 2d | 71 75 6f 74 65 64 0a 0a | escape-|quoted..|
|00000270| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|00000280| c0 c2 21 88 c0 c3 21 88 | c0 c4 21 88 c5 16 06 c0 |..!...!.|..!.....|
|00000290| 87 22 20 5b 72 65 71 75 | 69 72 65 20 73 6b 6b 2d |." [requ|ire skk-|
|000002a0| 66 6f 72 65 77 6f 72 64 | 20 73 6b 6b 2d 76 61 72 |foreword| skk-var|
|000002b0| 73 20 61 64 76 69 63 65 | 20 76 69 70 65 72 20 74 |s advice| viper t|
|000002c0| 20 73 6b 6b 2d 75 73 65 | 2d 76 69 70 65 72 5d 20 | skk-use|-viper] |
|000002d0| 32 29 0a 28 64 65 66 76 | 61 72 20 73 6b 6b 2d 76 |2).(defv|ar skk-v|
|000002e0| 69 70 65 72 2d 6e 6f 72 | 6d 61 6c 69 7a 65 2d 6d |iper-nor|malize-m|
|000002f0| 61 70 2d 66 75 6e 63 74 | 69 6f 6e 20 6e 69 6c 20 |ap-funct|ion nil |
|00000300| 22 5c 0a 56 69 70 65 72 | 20 1b 24 28 42 24 2c 1b |"\.Viper| .$(B$,.|
|00000310| 28 42 20 6d 69 6e 6f 72 | 2d 6d 6f 64 65 2d 6d 61 |(B minor|-mode-ma|
|00000320| 70 2d 61 6c 69 73 74 20 | 1b 24 28 42 24 72 44 34 |p-alist |.$(B$rD4|
|00000330| 40 30 24 39 24 6b 24 3f | 24 61 24 4e 34 58 3f 74 |@0$9$k$?|$a$N4X?t|
|00000340| 21 23 1b 28 42 22 29 0a | 28 62 79 74 65 2d 63 6f |!#.(B").|(byte-co|
|00000350| 64 65 20 22 c0 c1 21 ac | 8a c2 c3 21 ab 83 c4 aa |de "..!.|...!....|
|00000360| 81 c5 11 c1 1b 0e 06 42 | 16 06 1b 0e 07 ab 87 c8 |.......B|........|
|00000370| c9 ca cb 23 aa 83 c8 c9 | 21 1e 0c cd c4 21 88 09 |...#....|!....!..|
|00000380| c4 61 ab 83 c3 aa 81 ce | 89 16 1b 0f 20 88 d0 c9 |.a......|.... ...|
|00000390| 1b 0e 09 5c 22 88 1b 0e | 0c ab b6 72 d1 20 89 1e |...\"...|...r. ..|
|000003a0| 12 ab ad 1b 0e 12 40 71 | 88 d3 1b 0e 09 b7 ac 9a |......@q|........|
|000003b0| d4 1b 0e 15 42 d6 1b 0e | 17 42 d3 1b 0e 18 42 d9 |....B...|.B....B.|
|000003c0| 1b 0e 1a 42 46 1b 0e 09 | a4 16 09 1b 0e 1b 0f 20 |...BF...|....... |
|000003d0| 88 1b 0e 12 41 89 16 12 | ac 53 2a 29 db 1b 0e 1c |....A...|.S*)....|
|000003e0| 50 16 1c ca 87 22 20 5b | 62 6f 75 6e 64 70 20 73 |P...." [|boundp s|
|000003f0| 6b 6b 2d 76 69 70 65 72 | 2d 6f 72 2d 76 69 70 20 |kk-viper|-or-vip |
|00000400| 66 62 6f 75 6e 64 70 20 | 76 69 70 65 72 2d 6e 6f |fboundp |viper-no|
|00000410| 72 6d 61 6c 69 7a 65 2d | 6d 69 6e 6f 72 2d 6d 6f |rmalize-|minor-mo|
|00000420| 64 65 2d 6d 61 70 2d 61 | 6c 69 73 74 20 76 69 70 |de-map-a|list vip|
|00000430| 65 72 20 76 69 70 20 63 | 75 72 72 65 6e 74 2d 6c |er vip c|urrent-l|
|00000440| 6f 61 64 2d 6c 69 73 74 | 20 73 6b 6b 2d 78 65 6d |oad-list| skk-xem|
|00000450| 61 63 73 20 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |acs loca|l-variab|
|00000460| 6c 65 2d 70 20 6d 69 6e | 6f 72 2d 6d 6f 64 65 2d |le-p min|or-mode-|
|00000470| 6d 61 70 2d 61 6c 69 73 | 74 20 6e 69 6c 20 74 20 |map-alis|t nil t |
|00000480| 6f 74 68 65 72 2d 62 75 | 66 66 65 72 20 72 65 71 |other-bu|ffer req|
|00000490| 75 69 72 65 20 76 69 70 | 2d 6e 6f 72 6d 61 6c 69 |uire vip|-normali|
|000004a0| 7a 65 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 2d 6d 61 |ze-minor|-mode-ma|
|000004b0| 70 2d 61 6c 69 73 74 20 | 73 6b 6b 2d 76 69 70 65 |p-alist |skk-vipe|
|000004c0| 72 2d 6e 6f 72 6d 61 6c | 69 7a 65 2d 6d 61 70 2d |r-normal|ize-map-|
|000004d0| 66 75 6e 63 74 69 6f 6e | 20 73 65 74 2d 64 65 66 |function| set-def|
|000004e0| 61 75 6c 74 20 62 75 66 | 66 65 72 2d 6c 69 73 74 |ault buf|fer-list|
|000004f0| 20 62 75 66 20 73 6b 6b | 2d 6a 2d 6d 6f 64 65 20 | buf skk|-j-mode |
|00000500| 73 6b 6b 2d 61 62 62 72 | 65 76 2d 6d 6f 64 65 20 |skk-abbr|ev-mode |
|00000510| 73 6b 6b 2d 61 62 62 72 | 65 76 2d 6d 6f 64 65 2d |skk-abbr|ev-mode-|
|00000520| 6d 61 70 20 73 6b 6b 2d | 61 73 63 69 69 2d 6d 6f |map skk-|ascii-mo|
|00000530| 64 65 20 73 6b 6b 2d 61 | 73 63 69 69 2d 6d 6f 64 |de skk-a|scii-mod|
|00000540| 65 2d 6d 61 70 20 73 6b | 6b 2d 6a 2d 6d 6f 64 65 |e-map sk|k-j-mode|
|00000550| 2d 6d 61 70 20 73 6b 6b | 2d 7a 65 6e 6b 61 6b 75 |-map skk|-zenkaku|
|00000560| 2d 6d 6f 64 65 20 73 6b | 6b 2d 7a 65 6e 6b 61 6b |-mode sk|k-zenkak|
|00000570| 75 2d 6d 6f 64 65 2d 6d | 61 70 20 22 5b 1b 24 28 |u-mode-m|ap "[.$(|
|00000580| 42 21 23 21 29 21 2a 1b | 28 42 5d 5c 5c 7c 22 20 |B!#!)!*.|(B]\\|" |
|00000590| 73 65 6e 74 65 6e 63 65 | 2d 65 6e 64 5d 20 36 29 |sentence|-end] 6)|
|000005a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6b 6b 2d |.(defali|as 'skk-|
|000005b0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 2d 6a 69 73 78 30 |looking-|at-jisx0|
|000005c0| 32 30 38 20 23 5b 28 63 | 68 61 72 29 20 22 c0 c1 |208 #[(c|har) "..|
|000005d0| 5c 6e 21 21 40 c3 61 87 | 22 20 5b 66 69 6e 64 2d |\n!!@.a.|" [find-|
|000005e0| 63 68 61 72 73 65 74 2d | 73 74 72 69 6e 67 20 63 |charset-|string c|
|000005f0| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 63 68 |har-to-s|tring ch|
|00000600| 61 72 20 6a 61 70 61 6e | 65 73 65 2d 6a 69 73 78 |ar japan|ese-jisx|
|00000610| 30 32 30 38 5d 20 33 5d | 29 0a 28 62 79 74 65 2d |0208] 3]|).(byte-|
|00000620| 63 6f 64 65 20 22 c0 c1 | 4e c2 73 ac 85 c3 c4 c0 |code "..|N.s.....|
|00000630| 5c 22 88 c5 c0 c1 c6 23 | 87 22 20 5b 73 6b 6b 2d |\".....#|." [skk-|
|00000640| 6c 6f 6f 6b 69 6e 67 2d | 61 74 2d 6a 69 73 78 30 |looking-|at-jisx0|
|00000650| 32 30 38 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |208 byte|-optimiz|
|00000660| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00000670| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000680| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00000690| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|000006a0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|000006b0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|000006c0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|000006d0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000006e0| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|000006f0| 73 6b 6b 2d 76 69 70 65 | 72 2d 61 64 76 69 63 65 |skk-vipe|r-advice|
|00000700| 2d 73 65 6c 65 63 74 20 | 27 28 6d 61 63 72 6f 20 |-select |'(macro |
|00000710| 2e 20 23 5b 28 76 69 70 | 65 72 20 76 69 70 20 61 |. #[(vip|er vip a|
|00000720| 72 67 20 62 6f 64 79 29 | 20 22 c0 c1 c2 0b 0c 0d |rg body)| "......|
|00000730| 42 42 42 c2 1b 0e 06 0c | 0d 42 42 42 46 87 22 20 |BBB.....|.BBBF." |
|00000740| 5b 69 66 20 28 65 71 20 | 73 6b 6b 2d 76 69 70 65 |[if (eq |skk-vipe|
|00000750| 72 2d 6f 72 2d 76 69 70 | 20 27 76 69 70 65 72 29 |r-or-vip| 'viper)|
|00000760| 20 64 65 66 61 64 76 69 | 63 65 20 76 69 70 65 72 | defadvi|ce viper|
|00000770| 20 61 72 67 20 62 6f 64 | 79 20 76 69 70 5d 20 37 | arg bod|y vip] 7|
|00000780| 5d 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |])).(byt|e-code "|
|00000790| 08 c1 61 ab 8e c2 c3 c4 | c5 c6 24 88 c7 c3 c6 5c |..a.....|..$....\|
|000007a0| 22 88 aa 8c c2 c8 c9 c5 | c6 24 88 c7 c8 c6 5c 22 |".......|.$....\"|
|000007b0| 88 08 c1 61 ab 8e c2 ca | cb c5 c6 24 88 c7 ca c6 |...a....|...$....|
|000007c0| 5c 22 88 aa 8c c2 cc cd | c5 c6 24 88 c7 cc c6 5c |\"......|..$....\|
|000007d0| 22 88 08 c1 61 ab 8e c2 | ce cf c5 c6 24 88 c7 ce |"...a...|....$...|
|000007e0| c6 5c 22 88 aa 8c c2 d0 | d1 c5 c6 24 88 c7 d0 c6 |.\".....|...$....|
|000007f0| 5c 22 88 08 c1 61 ab 8e | c2 d2 d3 d4 c6 24 88 c7 |\"...a..|.....$..|
|00000800| d2 c6 5c 22 88 aa 8c c2 | d5 d6 d4 c6 24 88 c7 d5 |..\"....|....$...|
|00000810| c6 5c 22 88 08 c1 61 ab | 8e c2 d7 d8 d9 c6 24 88 |.\"...a.|......$.|
|00000820| c7 d7 c6 5c 22 88 aa 8c | c2 da db d9 c6 24 88 c7 |...\"...|.....$..|
|00000830| da c6 5c 22 88 dc dd 21 | 87 22 20 5b 73 6b 6b 2d |..\"...!|." [skk-|
|00000840| 76 69 70 65 72 2d 6f 72 | 2d 76 69 70 20 76 69 70 |viper-or|-vip vip|
|00000850| 65 72 20 61 64 2d 61 64 | 64 2d 61 64 76 69 63 65 |er ad-ad|d-advice|
|00000860| 20 76 69 70 65 72 2d 66 | 6f 72 77 61 72 64 2d 77 | viper-f|orward-w|
|00000870| 6f 72 64 2d 6b 65 72 6e | 65 6c 20 28 73 6b 6b 2d |ord-kern|el (skk-|
|00000880| 61 64 20 6e 69 6c 20 74 | 20 28 61 64 76 69 63 65 |ad nil t| (advice|
|00000890| 20 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 69 66 20 | lambda |nil (if |
|000008a0| 73 6b 6b 2d 6d 6f 64 65 | 20 28 6c 65 74 20 28 28 |skk-mode| (let ((|
|000008b0| 65 6e 61 62 6c 65 2d 6d | 75 6c 74 69 62 79 74 65 |enable-m|ultibyte|
|000008c0| 2d 63 68 61 72 61 63 74 | 65 72 73 20 74 29 29 20 |-charact|ers t)) |
|000008d0| 28 66 6f 72 77 61 72 64 | 2d 77 6f 72 64 20 76 61 |(forward|-word va|
|000008e0| 6c 29 29 20 61 64 2d 64 | 6f 2d 69 74 29 29 29 20 |l)) ad-d|o-it))) |
|000008f0| 61 72 6f 75 6e 64 20 6e | 69 6c 20 61 64 2d 61 63 |around n|il ad-ac|
|00000900| 74 69 76 61 74 65 2d 6f | 6e 20 76 69 70 2d 66 6f |tivate-o|n vip-fo|
|00000910| 72 77 61 72 64 2d 77 6f | 72 64 2d 6b 65 72 6e 65 |rward-wo|rd-kerne|
|00000920| 6c 20 28 73 6b 6b 2d 61 | 64 20 6e 69 6c 20 74 20 |l (skk-a|d nil t |
|00000930| 28 61 64 76 69 63 65 20 | 6c 61 6d 62 64 61 20 6e |(advice |lambda n|
|00000940| 69 6c 20 28 69 66 20 73 | 6b 6b 2d 6d 6f 64 65 20 |il (if s|kk-mode |
|00000950| 28 6c 65 74 20 28 28 65 | 6e 61 62 6c 65 2d 6d 75 |(let ((e|nable-mu|
|00000960| 6c 74 69 62 79 74 65 2d | 63 68 61 72 61 63 74 65 |ltibyte-|characte|
|00000970| 72 73 20 74 29 29 20 28 | 66 6f 72 77 61 72 64 2d |rs t)) (|forward-|
|00000980| 77 6f 72 64 20 76 61 6c | 29 29 20 61 64 2d 64 6f |word val|)) ad-do|
|00000990| 2d 69 74 29 29 29 20 76 | 69 70 65 72 2d 62 61 63 |-it))) v|iper-bac|
|000009a0| 6b 77 61 72 64 2d 77 6f | 72 64 2d 6b 65 72 6e 65 |kward-wo|rd-kerne|
|000009b0| 6c 20 28 73 6b 6b 2d 61 | 64 20 6e 69 6c 20 74 20 |l (skk-a|d nil t |
|000009c0| 28 61 64 76 69 63 65 20 | 6c 61 6d 62 64 61 20 6e |(advice |lambda n|
|000009d0| 69 6c 20 28 69 66 20 73 | 6b 6b 2d 6d 6f 64 65 20 |il (if s|kk-mode |
|000009e0| 28 6c 65 74 20 28 28 65 | 6e 61 62 6c 65 2d 6d 75 |(let ((e|nable-mu|
|000009f0| 6c 74 69 62 79 74 65 2d | 63 68 61 72 61 63 74 65 |ltibyte-|characte|
|00000a00| 72 73 20 74 29 29 20 28 | 62 61 63 6b 77 61 72 64 |rs t)) (|backward|
|00000a10| 2d 77 6f 72 64 20 76 61 | 6c 29 29 20 61 64 2d 64 |-word va|l)) ad-d|
|00000a20| 6f 2d 69 74 29 29 29 20 | 76 69 70 2d 62 61 63 6b |o-it))) |vip-back|
|00000a30| 77 61 72 64 2d 77 6f 72 | 64 2d 6b 65 72 6e 65 6c |ward-wor|d-kernel|
|00000a40| 20 28 73 6b 6b 2d 61 64 | 20 6e 69 6c 20 74 20 28 | (skk-ad| nil t (|
|00000a50| 61 64 76 69 63 65 20 6c | 61 6d 62 64 61 20 6e 69 |advice l|ambda ni|
|00000a60| 6c 20 28 69 66 20 73 6b | 6b 2d 6d 6f 64 65 20 28 |l (if sk|k-mode (|
|00000a70| 6c 65 74 20 28 28 65 6e | 61 62 6c 65 2d 6d 75 6c |let ((en|able-mul|
|00000a80| 74 69 62 79 74 65 2d 63 | 68 61 72 61 63 74 65 72 |tibyte-c|haracter|
|00000a90| 73 20 74 29 29 20 28 62 | 61 63 6b 77 61 72 64 2d |s t)) (b|ackward-|
|00000aa0| 77 6f 72 64 20 76 61 6c | 29 29 20 61 64 2d 64 6f |word val|)) ad-do|
|00000ab0| 2d 69 74 29 29 29 20 76 | 69 70 65 72 2d 64 65 6c |-it))) v|iper-del|
|00000ac0| 2d 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 2d 69 |-backwar|d-char-i|
|00000ad0| 6e 2d 69 6e 73 65 72 74 | 20 28 73 6b 6b 2d 61 64 |n-insert| (skk-ad|
|00000ae0| 20 6e 69 6c 20 74 20 28 | 61 64 76 69 63 65 20 6c | nil t (|advice l|
|00000af0| 61 6d 62 64 61 20 6e 69 | 6c 20 28 63 6f 6e 64 20 |ambda ni|l (cond |
|00000b00| 28 28 61 6e 64 20 73 6b | 6b 2d 68 65 6e 6b 61 6e |((and sk|k-henkan|
|00000b10| 2d 6f 6e 20 28 3e 3d 20 | 73 6b 6b 2d 68 65 6e 6b |-on (>= |skk-henk|
|00000b20| 61 6e 2d 73 74 61 72 74 | 2d 70 6f 69 6e 74 20 28 |an-start|-point (|
|00000b30| 70 6f 69 6e 74 29 29 29 | 20 28 73 65 74 71 20 73 |point)))| (setq s|
|00000b40| 6b 6b 2d 68 65 6e 6b 61 | 6e 2d 63 6f 75 6e 74 20 |kk-henka|n-count |
|00000b50| 30 29 20 28 73 6b 6b 2d | 6b 61 6b 75 74 65 69 29 |0) (skk-|kakutei)|
|00000b60| 29 20 28 73 6b 6b 2d 68 | 65 6e 6b 61 6e 2d 61 63 |) (skk-h|enkan-ac|
|00000b70| 74 69 76 65 20 28 69 66 | 20 28 61 6e 64 20 28 6e |tive (if| (and (n|
|00000b80| 6f 74 20 73 6b 6b 2d 64 | 65 6c 65 74 65 2d 69 6d |ot skk-d|elete-im|
|00000b90| 70 6c 69 65 73 2d 6b 61 | 6b 75 74 65 69 29 20 28 |plies-ka|kutei) (|
|00000ba0| 3d 20 73 6b 6b 2d 68 65 | 6e 6b 61 6e 2d 65 6e 64 |= skk-he|nkan-end|
|00000bb0| 2d 70 6f 69 6e 74 20 28 | 70 6f 69 6e 74 29 29 29 |-point (|point)))|
|00000bc0| 20 28 73 6b 6b 2d 70 72 | 65 76 69 6f 75 73 2d 63 | (skk-pr|evious-c|
|00000bd0| 61 6e 64 69 64 61 74 65 | 29 20 28 69 66 20 73 6b |andidate|) (if sk|
|00000be0| 6b 2d 75 73 65 2d 66 61 | 63 65 20 28 73 6b 6b 2d |k-use-fa|ce (skk-|
|00000bf0| 68 65 6e 6b 61 6e 2d 66 | 61 63 65 2d 6f 66 66 29 |henkan-f|ace-off)|
|00000c00| 29 20 28 69 66 20 6f 76 | 65 72 77 72 69 74 65 2d |) (if ov|erwrite-|
|00000c10| 6d 6f 64 65 20 28 70 72 | 6f 67 6e 20 28 62 61 63 |mode (pr|ogn (bac|
|00000c20| 6b 77 61 72 64 2d 63 68 | 61 72 20 31 29 20 28 64 |kward-ch|ar 1) (d|
|00000c30| 65 6c 65 74 65 2d 63 68 | 61 72 20 31 29 29 20 28 |elete-ch|ar 1)) (|
|00000c40| 64 65 6c 65 74 65 2d 62 | 61 63 6b 77 61 72 64 2d |delete-b|ackward-|
|00000c50| 63 68 61 72 20 31 29 20 | 28 69 66 20 28 3e 3d 20 |char 1) |(if (>= |
|00000c60| 73 6b 6b 2d 68 65 6e 6b | 61 6e 2d 65 6e 64 2d 70 |skk-henk|an-end-p|
|00000c70| 6f 69 6e 74 20 28 70 6f | 69 6e 74 29 29 20 28 73 |oint (po|int)) (s|
|00000c80| 6b 6b 2d 6b 61 6b 75 74 | 65 69 29 29 29 29 29 20 |kk-kakut|ei))))) |
|00000c90| 28 28 61 6e 64 20 73 6b | 6b 2d 68 65 6e 6b 61 6e |((and sk|k-henkan|
|00000ca0| 2d 6f 6e 20 6f 76 65 72 | 77 72 69 74 65 2d 6d 6f |-on over|write-mo|
|00000cb0| 64 65 29 20 28 62 61 63 | 6b 77 61 72 64 2d 63 68 |de) (bac|kward-ch|
|00000cc0| 61 72 20 31 29 20 28 64 | 65 6c 65 74 65 2d 63 68 |ar 1) (d|elete-ch|
|00000cd0| 61 72 20 31 29 29 20 28 | 74 20 61 64 2d 64 6f 2d |ar 1)) (|t ad-do-|
|00000ce0| 69 74 29 29 29 29 20 76 | 69 70 2d 64 65 6c 2d 62 |it)))) v|ip-del-b|
|00000cf0| 61 63 6b 77 61 72 64 2d | 63 68 61 72 2d 69 6e 2d |ackward-|char-in-|
|00000d00| 69 6e 73 65 72 74 20 28 | 73 6b 6b 2d 61 64 20 6e |insert (|skk-ad n|
|00000d10| 69 6c 20 74 20 28 61 64 | 76 69 63 65 20 6c 61 6d |il t (ad|vice lam|
|00000d20| 62 64 61 20 6e 69 6c 20 | 28 63 6f 6e 64 20 28 28 |bda nil |(cond ((|
|00000d30| 61 6e 64 20 73 6b 6b 2d | 68 65 6e 6b 61 6e 2d 6f |and skk-|henkan-o|
|00000d40| 6e 20 28 3e 3d 20 73 6b | 6b 2d 68 65 6e 6b 61 6e |n (>= sk|k-henkan|
|00000d50| 2d 73 74 61 72 74 2d 70 | 6f 69 6e 74 20 28 70 6f |-start-p|oint (po|
|00000d60| 69 6e 74 29 29 29 20 28 | 73 65 74 71 20 73 6b 6b |int))) (|setq skk|
|00000d70| 2d 68 65 6e 6b 61 6e 2d | 63 6f 75 6e 74 20 30 29 |-henkan-|count 0)|
|00000d80| 20 28 73 6b 6b 2d 6b 61 | 6b 75 74 65 69 29 29 20 | (skk-ka|kutei)) |
|00000d90| 28 73 6b 6b 2d 68 65 6e | 6b 61 6e 2d 61 63 74 69 |(skk-hen|kan-acti|
|00000da0| 76 65 20 28 69 66 20 28 | 61 6e 64 20 28 6e 6f 74 |ve (if (|and (not|
|00000db0| 20 73 6b 6b 2d 64 65 6c | 65 74 65 2d 69 6d 70 6c | skk-del|ete-impl|
|00000dc0| 69 65 73 2d 6b 61 6b 75 | 74 65 69 29 20 28 3d 20 |ies-kaku|tei) (= |
|00000dd0| 73 6b 6b 2d 68 65 6e 6b | 61 6e 2d 65 6e 64 2d 70 |skk-henk|an-end-p|
|00000de0| 6f 69 6e 74 20 28 70 6f | 69 6e 74 29 29 29 20 28 |oint (po|int))) (|
|00000df0| 73 6b 6b 2d 70 72 65 76 | 69 6f 75 73 2d 63 61 6e |skk-prev|ious-can|
|00000e00| 64 69 64 61 74 65 29 20 | 28 69 66 20 73 6b 6b 2d |didate) |(if skk-|
|00000e10| 75 73 65 2d 66 61 63 65 | 20 28 73 6b 6b 2d 68 65 |use-face| (skk-he|
|00000e20| 6e 6b 61 6e 2d 66 61 63 | 65 2d 6f 66 66 29 29 20 |nkan-fac|e-off)) |
|00000e30| 28 69 66 20 6f 76 65 72 | 77 72 69 74 65 2d 6d 6f |(if over|write-mo|
|00000e40| 64 65 20 28 70 72 6f 67 | 6e 20 28 62 61 63 6b 77 |de (prog|n (backw|
|00000e50| 61 72 64 2d 63 68 61 72 | 20 31 29 20 28 64 65 6c |ard-char| 1) (del|
|00000e60| 65 74 65 2d 63 68 61 72 | 20 31 29 29 20 28 64 65 |ete-char| 1)) (de|
|00000e70| 6c 65 74 65 2d 62 61 63 | 6b 77 61 72 64 2d 63 68 |lete-bac|kward-ch|
|00000e80| 61 72 20 31 29 20 28 69 | 66 20 28 3e 3d 20 73 6b |ar 1) (i|f (>= sk|
|00000e90| 6b 2d 68 65 6e 6b 61 6e | 2d 65 6e 64 2d 70 6f 69 |k-henkan|-end-poi|
|00000ea0| 6e 74 20 28 70 6f 69 6e | 74 29 29 20 28 73 6b 6b |nt (poin|t)) (skk|
|00000eb0| 2d 6b 61 6b 75 74 65 69 | 29 29 29 29 29 20 28 28 |-kakutei|))))) ((|
|00000ec0| 61 6e 64 20 73 6b 6b 2d | 68 65 6e 6b 61 6e 2d 6f |and skk-|henkan-o|
|00000ed0| 6e 20 6f 76 65 72 77 72 | 69 74 65 2d 6d 6f 64 65 |n overwr|ite-mode|
|00000ee0| 29 20 28 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |) (backw|ard-char|
|00000ef0| 20 31 29 20 28 64 65 6c | 65 74 65 2d 63 68 61 72 | 1) (del|ete-char|
|00000f00| 20 31 29 29 20 28 74 20 | 61 64 2d 64 6f 2d 69 74 | 1)) (t |ad-do-it|
|00000f10| 29 29 29 29 20 76 69 70 | 65 72 2d 69 6e 74 65 72 |)))) vip|er-inter|
|00000f20| 63 65 70 74 2d 45 53 43 | 2d 6b 65 79 20 28 73 6b |cept-ESC|-key (sk|
|00000f30| 6b 2d 61 64 64 20 6e 69 | 6c 20 74 20 28 61 64 76 |k-add ni|l t (adv|
|00000f40| 69 63 65 20 6c 61 6d 62 | 64 61 20 6e 69 6c 20 22 |ice lamb|da nil "|
|00000f50| 1b 24 28 42 22 26 25 62 | 21 3c 25 49 21 22 22 27 |.$(B"&%b|!<%I!""'|
|00000f60| 25 62 21 3c 25 49 24 40 | 24 43 24 3f 24 69 33 4e |%b!<%I$@|$C$?$i3N|
|00000f70| 44 6a 24 39 24 6b 21 23 | 1b 28 42 22 20 28 61 6e |Dj$9$k!#|.(B" (an|
|00000f80| 64 20 73 6b 6b 2d 6d 6f | 64 65 20 73 6b 6b 2d 68 |d skk-mo|de skk-h|
|00000f90| 65 6e 6b 61 6e 2d 6f 6e | 20 28 73 6b 6b 2d 6b 61 |enkan-on| (skk-ka|
|00000fa0| 6b 75 74 65 69 29 29 29 | 29 20 62 65 66 6f 72 65 |kutei)))|) before|
|00000fb0| 20 76 69 70 2d 69 6e 74 | 65 72 63 65 70 74 2d 45 | vip-int|ercept-E|
|00000fc0| 53 43 2d 6b 65 79 20 28 | 73 6b 6b 2d 61 64 64 20 |SC-key (|skk-add |
|00000fd0| 6e 69 6c 20 74 20 28 61 | 64 76 69 63 65 20 6c 61 |nil t (a|dvice la|
|00000fe0| 6d 62 64 61 20 6e 69 6c | 20 22 1b 24 28 42 22 26 |mbda nil| ".$(B"&|
|00000ff0| 25 62 21 3c 25 49 21 22 | 22 27 25 62 21 3c 25 49 |%b!<%I!"|"'%b!<%I|
|00001000| 24 40 24 43 24 3f 24 69 | 33 4e 44 6a 24 39 24 6b |$@$C$?$i|3NDj$9$k|
|00001010| 21 23 1b 28 42 22 20 28 | 61 6e 64 20 73 6b 6b 2d |!#.(B" (|and skk-|
|00001020| 6d 6f 64 65 20 73 6b 6b | 2d 68 65 6e 6b 61 6e 2d |mode skk|-henkan-|
|00001030| 6f 6e 20 28 73 6b 6b 2d | 6b 61 6b 75 74 65 69 29 |on (skk-|kakutei)|
|00001040| 29 29 29 20 76 69 70 65 | 72 2d 6a 6f 69 6e 2d 6c |))) vipe|r-join-l|
|00001050| 69 6e 65 73 20 28 73 6b | 6b 2d 61 64 20 6e 69 6c |ines (sk|k-ad nil|
|00001060| 20 74 20 28 61 64 76 69 | 63 65 20 6c 61 6d 62 64 | t (advi|ce lambd|
|00001070| 61 20 6e 69 6c 20 22 1b | 24 28 42 25 39 25 5a 21 |a nil ".|$(B%9%Z!|
|00001080| 3c 25 39 24 4e 4e 3e 42 | 26 24 4e 4a 38 3b 7a 25 |<%9$NN>B|&$NJ8;z%|
|00001090| 3b 25 43 25 48 24 2c 1b | 28 42 20 4a 49 53 58 30 |;%C%H$,.|(B JISX0|
|000010a0| 32 30 38 20 1b 24 28 42 | 24 40 24 43 24 3f 24 69 |208 .$(B|$@$C$?$i|
|000010b0| 25 39 25 5a 21 3c 25 39 | 24 72 3c 68 24 6a 3d 7c |%9%Z!<%9|$r<h$j=||
|000010c0| 24 2f 21 23 1b 28 42 22 | 20 28 73 61 76 65 2d 6d |$/!#.(B"| (save-m|
|000010d0| 61 74 63 68 2d 64 61 74 | 61 20 28 61 6e 64 20 28 |atch-dat|a (and (|
|000010e0| 73 6b 6b 2d 73 61 76 65 | 2d 70 6f 69 6e 74 20 28 |skk-save|-point (|
|000010f0| 73 6b 69 70 2d 63 68 61 | 72 73 2d 62 61 63 6b 77 |skip-cha|rs-backw|
|00001100| 61 72 64 20 22 20 22 29 | 20 28 73 74 72 69 6e 67 |ard " ")| (string|
|00001110| 2d 6d 61 74 63 68 20 22 | 5c 5c 63 7c 22 20 28 63 |-match "|\\c|" (c|
|00001120| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 28 70 |har-to-s|tring (p|
|00001130| 72 65 63 65 64 69 6e 67 | 2d 63 68 61 72 29 29 29 |receding|-char)))|
|00001140| 29 20 28 73 6b 6b 2d 73 | 61 76 65 2d 70 6f 69 6e |) (skk-s|ave-poin|
|00001150| 74 20 28 73 6b 69 70 2d | 63 68 61 72 73 2d 66 6f |t (skip-|chars-fo|
|00001160| 72 77 61 72 64 20 22 20 | 22 29 20 28 73 74 72 69 |rward " |") (stri|
|00001170| 6e 67 2d 6d 61 74 63 68 | 20 22 5c 5c 63 7c 22 20 |ng-match| "\\c|" |
|00001180| 28 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 |(char-to|-string |
|00001190| 28 66 6f 6c 6c 6f 77 69 | 6e 67 2d 63 68 61 72 29 |(followi|ng-char)|
|000011a0| 29 29 29 20 28 64 65 6c | 65 74 65 2d 63 68 61 72 |))) (del|ete-char|
|000011b0| 20 31 29 29 29 29 29 20 | 61 66 74 65 72 20 76 69 | 1))))) |after vi|
|000011c0| 70 2d 6a 6f 69 6e 2d 6c | 69 6e 65 73 20 28 73 6b |p-join-l|ines (sk|
|000011d0| 6b 2d 61 64 20 6e 69 6c | 20 74 20 28 61 64 76 69 |k-ad nil| t (advi|
|000011e0| 63 65 20 6c 61 6d 62 64 | 61 20 6e 69 6c 20 22 1b |ce lambd|a nil ".|
|000011f0| 24 28 42 25 39 25 5a 21 | 3c 25 39 24 4e 4e 3e 42 |$(B%9%Z!|<%9$NN>B|
|00001200| 26 24 4e 4a 38 3b 7a 25 | 3b 25 43 25 48 24 2c 1b |&$NJ8;z%|;%C%H$,.|
|00001210| 28 42 20 4a 49 53 58 30 | 32 30 38 20 1b 24 28 42 |(B JISX0|208 .$(B|
|00001220| 24 40 24 43 24 3f 24 69 | 25 39 25 5a 21 3c 25 39 |$@$C$?$i|%9%Z!<%9|
|00001230| 24 72 3c 68 24 6a 3d 7c | 24 2f 21 23 1b 28 42 22 |$r<h$j=||$/!#.(B"|
|00001240| 20 28 73 61 76 65 2d 6d | 61 74 63 68 2d 64 61 74 | (save-m|atch-dat|
|00001250| 61 20 28 61 6e 64 20 28 | 73 6b 6b 2d 73 61 76 65 |a (and (|skk-save|
|00001260| 2d 70 6f 69 6e 74 20 28 | 73 6b 69 70 2d 63 68 61 |-point (|skip-cha|
|00001270| 72 73 2d 62 61 63 6b 77 | 61 72 64 20 22 20 22 29 |rs-backw|ard " ")|
|00001280| 20 28 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | (string|-match "|
|00001290| 5c 5c 63 7c 22 20 28 63 | 68 61 72 2d 74 6f 2d 73 |\\c|" (c|har-to-s|
|000012a0| 74 72 69 6e 67 20 28 70 | 72 65 63 65 64 69 6e 67 |tring (p|receding|
|000012b0| 2d 63 68 61 72 29 29 29 | 29 20 28 73 6b 6b 2d 73 |-char)))|) (skk-s|
|000012c0| 61 76 65 2d 70 6f 69 6e | 74 20 28 73 6b 69 70 2d |ave-poin|t (skip-|
|000012d0| 63 68 61 72 73 2d 66 6f | 72 77 61 72 64 20 22 20 |chars-fo|rward " |
|000012e0| 22 29 20 28 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |") (stri|ng-match|
|000012f0| 20 22 5c 5c 63 7c 22 20 | 28 63 68 61 72 2d 74 6f | "\\c|" |(char-to|
|00001300| 2d 73 74 72 69 6e 67 20 | 28 66 6f 6c 6c 6f 77 69 |-string |(followi|
|00001310| 6e 67 2d 63 68 61 72 29 | 29 29 29 20 28 64 65 6c |ng-char)|))) (del|
|00001320| 65 74 65 2d 63 68 61 72 | 20 31 29 29 29 29 29 20 |ete-char| 1))))) |
|00001330| 70 72 6f 76 69 64 65 20 | 73 6b 6b 2d 76 69 70 65 |provide |skk-vipe|
|00001340| 72 5d 20 35 29 0a | |r] 5). | |
+--------+-------------------------+-------------------------+--------+--------+
